PsL Monthly 1993 December/PSL Monthly Shareware CD-ROM (December 1993).iso/prgmming/dos/pascal/setjmps.com/LOCALCSF.INC

Text File | 1991-04-06 | 284 b | 10 lines

(* this function is passed as a procedural variable to setjmp
   so it must be far.  If you're compiling under 5.x, remove the
   "far;" and make sure the units that include this file have {$F+}
*)

function localCSfunction:word;   far;
begin
  localCSfunction := CSeg;
end;